home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 February / 1988-02.d64 / key magician (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  57 lines
  1. 10 dimf$(16):rem copyright 1988 compute! publications, inc. all rights reserved
  2. 20 print"[147][144]   copyright 1988 compute! pub., inc."
  3. 30 printtab(11)"all rights reserved":gosub390
  4. 40 f$(1)="load"+chr$(34)
  5. 50 f$(2)="save"+chr$(34)
  6. 60 f$(3)="print"+chr$(34)
  7. 70 f$(4)="p[207]53281,0:p[207]53280,0:"+chr$(152)+"list"+chr$(13)
  8. 80 f$(5)="goto"
  9. 90 f$(6)="gosub"
  10. 100 f$(7)="fori=1to500:next"
  11. 110 f$(8)="load"+chr$(34)+"$"+chr$(34)+",8"
  12. 120 f$(9)="open4,4:cmd4:list"
  13. 130 f$(10)="open15,8,15,"+chr$(34)+"v0"+chr$(34)+":close15"
  14. 140 f$(11)="open15,8,15,"+chr$(34)+"i0"+chr$(34)+":close15"
  15. 150 f$(12)="list0-150"+chr$(13)
  16. 160 f$(13)="list151-300"+chr$(13)
  17. 170 f$(14)="list300-450"+chr$(13)
  18. 180 f$(15)="list451-600"+chr$(13)
  19. 190 f$(16)="run"+chr$(13)
  20. 200 forp=1to16:l=len(f$(p)):fori=1tol
  21. 210 poke51350+c,asc(mid$(f$(p),i,1)):c=c+1:next:poke51350+c,0:c=c+1:next
  22. 220 print"[147]all keys are defined."
  23. 230 input"do you wish to save this version  y[157][157][157]";q$:ifq$="y"then260
  24. 240 ifq$<>"n"then230
  25. 250 print"[147]":end
  26. 260 input"filename";n$:l=len(n$):ifl<1orl>16then260
  27. 270 print"please wait..."
  28. 280 open15,8,15,"i0":close15:ifst<>0then370
  29. 290 open1,8,15:open2,8,2,"0:"^n$+",p,w":ifst<>0then340
  30. 300 print#2,chr$(0)chr$(200);
  31. 310 fork=51200to51350+c:print#2,chr$(peek(k));:next
  32. 320 ifst<>0then340
  33. 330 print"save completed.":goto350
  34. 340 print"error:  [153]";
  35. 350 get#1,e$:printe$;:ife$<>chr$(13)then350
  36. 360 close1:close2:print"[147]":sys51200:end
  37. 370 print"disk error:  [153]"
  38. 380 print"insert disk and press a key.":wait198,15:geta$:goto280
  39. 390 fori=51200to51349:reada:x=x+a:pokei,a:next
  40. 400 ifx<>19573thenprint"error in ml data statements.":stop
  41. 410 return
  42. 420 data 169,124,160,200,32,30,171,120,169,20
  43. 430 data 141,20,3,169,200,141,21,3,88,96
  44. 440 data 165,197,201,64,208,5,133,253,76,49
  45. 450 data 234,197,253,240,249,133,253,201,3,144
  46. 460 data 243,201,7,176,239,41,3,133,254,173
  47. 470 data 141,2,208,5,165,254,76,65,200,170
  48. 480 data 189,142,200,5,254,162,150,160,200,134
  49. 490 data 251,132,252,160,0,170,240,17,177,251
  50. 500 data 208,3,202,240,9,230,251,208,245,230
  51. 510 data 252,76,78,200,200,177,251,240,185,201
  52. 520 data 13,240,11,32,210,255,200,208,242,230
  53. 530 data 252,76,95,200,141,119,2,162,1,134
  54. 540 data 198,76,28,200,83,85,80,69,82,75
  55. 550 data 69,89,32,69,78,65,66,76,69,68
  56. 560 data 46,0,0,4,8,0,12,0,0,0
  57.